Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue56/System/RasDemoForm.dfm

Text File | 2000-03-04 | 4.6 KB | 199 lines

object MainForm: TMainForm
  Left = 177
  Top = 302
  BorderStyle = bsDialog
  Caption = 'RAS Controls Demo'
  ClientHeight = 215
  ClientWidth = 607
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 607
    Height = 215
    ActivePage = TabSheet1
    Align = alClient
    MultiLine = True
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = 'Dial Codes'
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 179
        Height = 13
        Caption = '&International Dialing Code Information:'
        FocusControl = DialCodes
      end
      object DialCodes: TListView
        Left = 8
        Top = 24
        Width = 577
        Height = 150
        Columns = <
          item
            AutoSize = True
            Caption = 'Country'
            MinWidth = 150
          end
          item
            AutoSize = True
            Caption = 'Country Code'
          end
          item
            AutoSize = True
            Caption = 'Dialing Prefix'
          end>
        GridLines = True
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Phone Book'
      ImageIndex = 1
      object Label2: TLabel
        Left = 8
        Top = 8
        Width = 94
        Height = 13
        Caption = '&Phone Book Entries'
        FocusControl = PhoneBook
      end
      object PhoneBook: TListView
        Left = 8
        Top = 24
        Width = 577
        Height = 150
        Columns = <
          item
            AutoSize = True
            Caption = 'Service'
            MinWidth = 100
          end
          item
            AutoSize = True
            Caption = 'UserName'
            MinWidth = 100
          end
          item
            AutoSize = True
            Caption = 'Phone Number'
            MinWidth = 100
          end
          item
            AutoSize = True
            Caption = 'Password'
          end>
        GridLines = True
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
        OnDblClick = PhoneBookDblClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Devices'
      ImageIndex = 2
      object Label3: TLabel
        Left = 8
        Top = 8
        Width = 119
        Height = 13
        Caption = 'RAS-Compatible &Devices'
        FocusControl = DeviceList
      end
      object DeviceList: TListView
        Left = 8
        Top = 24
        Width = 577
        Height = 150
        Columns = <
          item
            AutoSize = True
            Caption = 'Device Name'
            MinWidth = 100
          end
          item
            AutoSize = True
            Caption = 'Device Type'
            MinWidth = 100
          end>
        GridLines = True
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Connections'
      ImageIndex = 3
      object Label4: TLabel
        Left = 8
        Top = 8
        Width = 96
        Height = 13
        Caption = 'Current &Connections'
        FocusControl = ConnectList
      end
      object ConnectList: TListView
        Left = 8
        Top = 24
        Width = 577
        Height = 150
        Columns = <
          item
            AutoSize = True
            Caption = 'Connection Name'
            MinWidth = 100
          end
          item
            AutoSize = True
            Caption = 'Connection Status'
            MinWidth = 100
          end>
        GridLines = True
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
  end
  object PhoneBookManager: TRASPhoneBookManager
    Left = 16
    Top = 400
  end
  object CountryList: TRASCountryList
    CountryName = 'United Kingdom'
    CountryDialCode = 44
    CountryID = 44
    Left = 16
    Top = 440
  end
  object DeviceManager: TRASDeviceManager
    Left = 564
    Top = 8
  end
  object ConnectionManager: TRASConnectionManager
    OnStatusChange = ConnectionManagerStatusChange
    Left = 528
    Top = 8
  end
end